home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00250_INICIALIZA CONFIGURACION.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  715 b   |  20 lines
  1. on exitFrame
  2.   global niv_sonido1, niv_sonido2, full_video, idioma, paleta_conf
  3.   puppetPalette(paleta_conf)
  4.   repeat with xx = 5 to 8
  5.     puppetSprite(xx, 1)
  6.   end repeat
  7.   puppetSprite(11, 1)
  8.   set the locH of sprite 7 to 258 + integer(float(niv_sonido2) * float(54) / float(256))
  9.   set the locV of sprite 7 to 459
  10.   set the locH of sprite 8 to 323 + integer(float(niv_sonido1) * float(54) / float(256))
  11.   set the locV of sprite 8 to 459
  12.   if full_video then
  13.     set the castNum of sprite 6 to the number of cast "PETITCAD.PIC"
  14.   else
  15.     set the castNum of sprite 5 to the number of cast "PETITCAD.PIC"
  16.   end if
  17.   set the castNum of sprite 11 to the number of cast "ENGLISH.PIC" + idioma - 1
  18.   updateStage()
  19. end
  20.